﻿Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.OleDb

Public Class winInit
    '初始化考试题

    '连接数据库

    Private Sub winInit_Initialized(sender As Object, e As System.EventArgs) Handles Me.Initialized

    End Sub





    Private Sub winInit_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        'Dim aa As Boolean = False
        'aa = initExamination()
        'If aa Then
        '    MsgBox("ok")
        'End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button2.Click

        '登录判断




        If rbA.IsChecked = True Then
            Dim tempInitTorF As Boolean = getInitE(0)
            If tempInitTorF = True Then
                '初始化成功
                Dim MW As MainWindow = New MainWindow()
                MW.Show()
                Me.Close()
            End If
        End If

        If rbB.IsChecked = True Then
            Dim tempInitTorF As Boolean = getInitE(1)
            If tempInitTorF = True Then
                '初始化成功
                Dim MW As WindowZHT = New WindowZHT()
                MW.Show()
                Me.Close()
            End If
        End If



    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
        End
    End Sub
End Class
